## change wd
setwd("/Users/liulch/Desktop/BSA_replication_code/")


sink("run.log", split = TRUE)
cat("Starting replication at: ", Sys.time(), "\n")

# Run analysis scripts

## simulated example
source("code/1.sim_example.R")

## empirical application
source("code/4.empirical_example.R")


## Monte Carlo studies
source("code/2.sim_monte_carlo.R")
source("code/3.sim_monte_carlo_summary_results.R")



cat("Replication completed at: ", Sys.time(), "\n")
sink()